home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
patches
/
ami301c.zip
/
QKGEOM.SM$
/
QKGEOM.SMM
Wrap
INI File
|
1993-05-27
|
18KB
|
1,431 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
QMS-PS 810
[port]
LPT1:
[lang]
1
[desc]
Quickly calculate Sine, Cosine, and Tangent of an angle.
738529652
21
732310448
647
6
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
16
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Header
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
Peyton McManus
Lotus WPD
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[edoc]
<:#284,9360>
<:#284,9360>Define EM_SetSel 1025
<:#284,9360>
<:#568,9360>Define CECREATEINSTANCE(LPHANDLE) DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
<:#568,9360>Define CEDESTROYINSTANCE(HANDLE) DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
<:#568,9360>Define CECALCNOW(HINSTANCE, lpFormula, lpOutPut) DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
<:#284,9360><:f,,>
<:#284,9360>define IsOKToRun(menuname) GetInfo(217, 24, %1);
<:#284,9360>
<:#284,9360>
<:#284,9360>' How we display numbers in the dlg
<:#284,9360>Define NumDecimals 4
<:#284,9360>Define MyFormat(Value) FormatNum$("","",NumDecimals,%1)
<:#284,9360>
<:#284,9360>
<:#284,9360>' Dlg Defines
<:#284,9360>Define Dataedit 8000
<:#284,9360>Define Sinradio 20
<:#284,9360>Define Cosradio 21
<:#284,9360>Define Tanradio 22
<:#284,9360>Define Sintext 1002
<:#284,9360>Define Costext 1003
<:#284,9360>Define Tantext 1004
<:#284,9360>Define CopyDatabutton 31
<:#284,9360>
<:#284,9360>Define ErrorMessage "Failed to start the Ltsce01.dll engine"
<:#284,9360>
<:#284,9360>
<:#284,9360>' Win API Defines
@Outline2@<:#568,9360>Define MyGetDlgItemText(hdg, id, string, max) DllCall("User,GetDlgItemText,HHHCH",%1,%2,%3,%4)
<:#284,9360>define CloseDlg(id) dllcall("user,PostMessage,HHHHHH", HDLG, 0X111, %1, 0, 0).
<:#284,9360>Define EnableWindow() DllCall("User,EnableWindow,AHA",%1,%2)
<:#284,9360>
<:#284,9360>
<:#284,9360>
@Outline2@<:#284,9360>
<:#284,9360>Declare StartEngine()
<:#284,9360>Declare DataDlg(Hdlg, id, value)
<:#284,9360>Declare FontDlg(Action, Hdlg, id)
<:#284,9360>
@Subhead@<:#284,9360>Function GetShade()
<:#284,9360>DefStr Stat, List, hInstance;
<:#284,9360>Mac = GetRunningMacroFile$()
<:#284,9360>Id = StartEngine()
<:#284,9360>If Id = 0
<:#284,9360> Message(ErrorMessage)
<:#284,9360> Return 0;
<:#284,9360>Endif
<:#284,9360>RetVal = CECREATEINSTANCE(&hInstance)
<:#284,9360>AllocGlobalVar("hInstance",1)
<:#284,9360>SetGlobalVar("hInstance",hInstance)
<:#284,9360>
<:#284,9360>FontDlg(1,0,0)
<:#284,9360>SetDlgCallBack(0,"{Mac}!InitDlg")
<:#284,9360>SetDlgCallBack(Dataedit,"{Mac}!DataDlg")
<:#284,9360>SetDlgCallBack(CopyDatabutton,"{Mac}!CopyData")
<:#284,9360>FillEdit(8000,"45")
@Outline3@<:#284,9360>FillEdit(20,1)
@Outline3@<:#284,9360>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
@Outline3@<:#284,9360>
<:#284,9360>Box = DialogBox(".","QuickGeo")
<:#284,9360>CEDestroyInstance(hInstance)
<:#284,9360>FreeGlobalVar("hInstance")
<:#284,9360>FontDlg(4,0,0)
<:#284,9360>DllFreeLib(id)
<:#284,9360>End Function
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>Function StartEngine()
<:#284,9360>LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
<:#284,9360>If LibId = 0
<:#284,9360> Message("LTSCE01.DLL not found. Copy the dll to your windows directory")
<:#284,9360> Return 0;
<:#284,9360>Endif
<:#284,9360>Return Libid
<:#284,9360>End function
<:#284,9360>
@Subhead@<:#284,9360>Function InitDlg(Hdlg, Id, Value)
<:#284,9360>IgnoreKeyBoard(2)
<:#284,9360>HourGlass(on)
<:#284,9360>FontDlg(3,Hdlg, Sinradio)
<:#284,9360>FontDlg(3,Hdlg, CosRadio)
<:#284,9360>FontDlg(3,Hdlg, TanRadio)
<:#284,9360>FontDlg(3,Hdlg, SinText)
<:#284,9360>FontDlg(3, Hdlg, CosText)
<:#284,9360>FontDlg(3, Hdlg, TanText)
<:#284,9360>FontDlg(3,Hdlg, 1000)
<:#284,9360>FontDlg(3,Hdlg, 1001)
<:#284,9360>FontDlg(3,Hdlg, 8000)
<:#284,9360>DataDlg(Hdlg, Id, Value)
<:#284,9360>HourGlass(off)
<:#284,9360>End Function
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>Function DataDlg(Hdlg, id, value)
<:#284,9360>IgnoreKeyBoard(2)
<:#284,9360>DefStr Sin, Cos, Tan;
<:#284,9360>HourGlass(on)
<:#284,9360>hInstance = GetGlobalVar$("hInstance")
<:#284,9360>Degree = GetdlgItemText(hDlg, 8000)
<:#284,9360>CECalcNow(hInstance,"@Sin({Degree}*@PI/180)",&Sin)
<:#284,9360>CECalcNow(hInstance,"@cos({Degree}*@PI/180)",&Cos)
<:#284,9360>CECalcNow(hInstance,"@Tan({Degree}*@PI/180)",&Tan)
<:#284,9360>
<:#284,9360>If 0 != Instr(0,Sin,"E")
<:#284,9360> Sin = 0
<:#284,9360>Endif
<:#284,9360>
<:#284,9360>' Need these lines because the number returned may be xE 10<+&>-19<-&>
<:#284,9360>
<:#284,9360>If 0 != Instr(0,Cos,"E")
<:#284,9360> Cos = 0
<:#284,9360>Endif
<:#284,9360>
<:#284,9360>If 0 != Instr(0,Tan,"E")
<:#284,9360> Tan = 0
<:#284,9360>Endif
If Degree = 90 or Degree = 270
Tan = "NA"
Endif
SetDlgItemText(Hdlg, Sintext, MyFormat(Sin))
<:#284,9360>SetDlgItemText(Hdlg, Costext, MyFormat(Cos))
<:#284,9360>SetDlgItemText(Hdlg, Tantext, MyFormat(Tan))
<:#284,9360>HourGlass(off)
<:#284,9360>End Function
<:#284,9360>
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>FUnction CopyData(Hdlg, Id, value)
<:#284,9360>DefStr Data;
<:#284,9360>If GetDlgItemText(Hdlg, Sinradio)
<:#284,9360> MyGetDlgItemText(Hdlg, Sintext, &Data, 80)
<:#284,9360>Elseif GetDlgItemText(Hdlg, Cosradio)
<:#284,9360> MyGetDlgItemText(hDlg, Costext, &Data, 80)
<:#284,9360>Elseif GetDlgItemText(hDlg, Tanradio)
<:#284,9360> MyGetDlgItemText(hDlg, Tantext, &Data, 80)
<:#284,9360>Endif
<:#284,9360>ClipBoardWrite(Data,1)
<:#284,9360>CloseDlg(2)
<:#284,9360>End Function
<:#284,9360>
@Subhead@<:#284,9360>function DisplayHelp()
@Outline2@<:#284,9360>' two defines needed for help. The help name and panel number are defined above
@Outline2@<:#284,9360>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
@Outline2@<:#284,9360>define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
@Outline2@<:#284,9360>prohWnd = FindWindowa("AmiProWndA", 0)
@Outline2@<:#284,9360>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
@Outline2@<:#284,9360>PanelNum= 85
@Outline2@<:#284,9360>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
@Outline2@<:#284,9360>end function
@Subhead@<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>Function FontDlg(Action, Hdlg, id)
<:#284,9360>' 1 Create a font and allocvar
<:#284,9360>' 2 Return the handle of the create font
<:#284,9360>' 3 Set the id specified to the font
<:#284,9360>' 4 Freeglobalvar and delete created object
<:#284,9360>
@Outline2@<:#568,9360>define CreateFontDLG() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Outline2@<:#284,9360>define DeleteObjectDLG(handle) DllCall("gdi,DeleteObject,HH", %1)
@Outline2@<:#568,9360>define SendMessageDLG(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Outline2@<:#284,9360>
@Outline2@<:#284,9360>
<:#284,9360>Switch Action
<:#284,9360> Case 1 ' Create the font and store it
@Outline2@<:#284,9360> Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
<:#284,9360> AllocGlobalVar("FontHandle",1)
<:#284,9360> If Font
<:#284,9360> SetGlobalVar("FontHandle",Font)
<:#284,9360> Return Font
<:#284,9360> Else
<:#284,9360> Return 0; ' no font
<:#284,9360> Endif
<:#284,9360> Break;
<:#284,9360> Case 2 ' Return the handle to the font
<:#284,9360> Handle = GetGlobalVar$("FontHandle")
<:#284,9360> If Handle
<:#284,9360> Return Handle
<:#284,9360> Else
<:#284,9360> Return 0
<:#284,9360> Endif
<:#284,9360>
<:#284,9360> Case 3 ' Set the id to the font
<:#284,9360> Handle = GetGlobalVar$("FontHandle")
<:#284,9360> If Handle
<:#284,9360> IdControl = GetDlgITem(Hdlg, id)
<:#284,9360> SendMessageDlg(idControl, 0x30, Handle, 0)
<:#284,9360> Return 1
<:#284,9360> Else
<:#284,9360> Return 0
<:#284,9360> Endif
<:#284,9360> Break;
<:#284,9360>
<:#284,9360> Case 4 ' Delete the font and clear the var
<:#284,9360> Handle = GetGlobalVar$("FontHandle")
<:#284,9360> If Handle
<:#284,9360> DeleteObjectDLG(Handle)
<:#284,9360> Stat = 1
<:#284,9360> Else
<:#284,9360> Stat = 0
<:#284,9360> Endif
<:#284,9360> FreeGlobalVar("FontHandle")
<:#284,9360> Return Stat
<:#284,9360> Default
<:#284,9360> Message("Fontdlg received an invalid parameter {Action}")
<:#284,9360>EndSwitch
<:#284,9360>
<:#284,9360>End Function
@Subhead@<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>DIALOG QuickGeo
<:#284,9360>-2134376448 11 73 32 127 55 "" "AmiDialog" "QuickGeometry"
<:#284,9360>FONT 8 "Helv"
<:#284,9360>34 4 18 12 8000 1350631424 "edit" "" 0
<:#284,9360>6 20 34 8 20 1342242825 "button" "Sine:" 0
<:#284,9360>6 32 34 8 21 1342242825 "button" "Cosine:" 0
<:#284,9360>6 43 34 10 22 1342242825 "button" "Tangent:" 0
<:#284,9360>83 3 40 14 1 1342373889 "button" "Done" 0
<:#284,9360>83 19 40 14 31 1342373888 "button" "Copy" 0
<:#284,9360>48 20 29 8 1002 1342177280 "static" "text" 0
<:#284,9360>48 32 29 8 1003 1342177280 "static" "text" 0
<:#284,9360>48 44 29 8 1004 1342177280 "static" "text" 0
<:#284,9360>6 6 23 8 1000 1342177280 "static" "Angle:" 0
<:#284,9360>54 6 27 10 1001 1342177280 "static" "degrees" 0
<:#284,9360>END DIALOG
>
[Embedded]
00013824
>
[macsum] 8
GetShade 0 0 8 40
StartEngine 524 0 2 68
InitDlg 729 3 1 77
DataDlg 1028 3 6 94
CopyData 1699 3 2 129
DisplayHelp 2067 0 4 142
FontDlg 2252 3 5 155
QuickGeo 3098 0 -1 216
[macse]
14 GetShade
0 802
13
8 4
16 StartEngine
13
8 5
6 5
5 0
18 0
11 00000141
0 3 "Failed to start the Ltsce01.dll engine"
5 0
15
9
0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
13
8 6
0 271 "hInstance" 1
0 264 "hInstance" "{3}"
16 FontDlg 1 0 0
0 41 0 "{4}!InitDlg"
0 41 8000 "{4}!DataDlg"
0 41 31 "{4}!CopyData"
0 31 8000 "45"
0 31 20 1
0 47 112 "{4}!DisplayHelp"
0 26 "." "QuickGeo"
13
8 7
0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
0 266 "hInstance"
16 FontDlg 4 0 0
0 298 "{5}"
6 0
15
9
14 StartEngine
0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
13
8 1
6 1
5 0
18 0
11 00000181
0 3 "LTSCE01.DLL not found. Copy the dll to your windows directory"
5 0
15
9
6 1
15
9
6 0
15
9
14 InitDlg
0 32 2
0 296 1
16 FontDlg 3 "{0}" 20
16 FontDlg 3 "{0}" 21
16 FontDlg 3 "{0}" 22
16 FontDlg 3 "{0}" 1002
16 FontDlg 3 "{0}" 1003
16 FontDlg 3 "{0}" 1004
16 FontDlg 3 "{0}" 1000
16 FontDlg 3 "{0}" 1001
16 FontDlg 3 "{0}" 8000
16 DataDlg "{0}" "{1}" "{2}"
0 296 0
6 3
15
9
14 DataDlg
0 32 2
0 296 1
0 265 "hInstance"
13
8 7
0 42 "{0}" 8000
13
8 8
0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{7}" "@Sin({8}*@PI/180)" &4
0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{7}" "@cos({8}*@PI/180)" &5
0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{7}" "@Tan({8}*@PI/180)" &6
5 0
0 808 0 "{4}" "E"
13
18 1
11 00000335
5 0
8 4
5 0
0 808 0 "{5}" "E"
13
18 1
11 00000392
5 0
8 5
5 0
0 808 0 "{6}" "E"
13
18 1
11 00000449
5 0
8 6
6 8
5 90
18 0
6 8
5 270
18 0
1 2
11 00000515
7 "NA"
8 6
0 19 "" "" 4 "{4}"
13
0 43 "{0}" 1002 [X]
0 19 "" "" 4 "{5}"
13
0 43 "{0}" 1003 [X]
0 19 "" "" 4 "{6}"
13
0 43 "{0}" 1004 [X]
0 296 0
6 3
15
9
14 CopyData
0 42 "{0}" 20
13
11 00000110
0 284 "User,GetDlgItemText,HHHCH" "{0}" 1002 &4 80
10 00000291
0 42 "{0}" 21
13
11 00000207
0 284 "User,GetDlgItemText,HHHCH" "{0}" 1003 &4 80
10 00000291
0 42 "{0}" 22
13
11 00000291
0 284 "User,GetDlgItemText,HHHCH" "{0}" 1004 &4 80
0 1038 "{4}" 1
0 284 "user,PostMessage,HHHHHH" "{0}" 273 2 0 0
6 3
15
9
14 DisplayHelp
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HelpPack.hlp"
13
8 2
5 85
8 3
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
6 0
15
9
14 FontDlg
5 1
6 0
18 0
11 00000255
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
0 271 "FontHandle" 1
6 4
11 00000217
0 264 "FontHandle" "{4}"
6 4
15
9
10 00000229
5 0
15
9
10 00000834
10 00000834
5 2
6 0
18 0
11 00000381
0 265 "FontHandle"
13
8 5
6 5
11 00000356
6 5
15
9
10 00000368
5 0
15
9
10 00000834
5 3
6 0
18 0
11 00000596
0 265 "FontHandle"
13
8 5
6 5
11 00000558
0 44 "{1}" "{2}"
13
8 6
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
5 1
15
9
10 00000570
5 0
15
9
10 00000834
10 00000834
5 4
6 0
18 0
11 00000785
0 265 "FontHandle"
13
8 5
6 5
11 00000730
0 284 "gdi,DeleteObject,HH" "{5}"
5 1
8 7
10 00000740
5 0
8 7
0 266 "FontHandle"
6 7
15
9
10 00000834
0 3 "Fontdlg received an invalid parameter {0}"
6 3
15
9
DIALOG QuickGeo
-2134376448 11 73 32 127 55 "" "AmiDialog" "QuickGeometry"
FONT 8 "Helv"
34 4 18 12 8000 1350631424 "edit" "" 0
6 20 34 8 20 1342242825 "button" "Sine:" 0
6 32 34 8 21 1342242825 "button" "Cosine:" 0
6 43 34 10 22 1342242825 "button" "Tangent:" 0
83 3 40 14 1 1342373889 "button" "Done" 0
83 19 40 14 31 1342373888 "button" "Copy" 0
48 20 29 8 1002 1342177280 "static" "text" 0
48 32 29 8 1003 1342177280 "static" "text" 0
48 44 29 8 1004 1342177280 "static" "text" 0
6 6 23 8 1000 1342177280 "static" "Angle:" 0
54 6 27 10 1001 1342177280 "static" "degrees" 0
00013849